home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Auge 4000
/
Auge 4000 #77 (1994-02-10)(Amiga User Gruppe Einzugsgebiet 4000).zip
/
Auge 4000 #77 (1994-02-10)(Amiga User Gruppe Einzugsgebiet 4000).adf
/
Write
/
WRITE.lha
/
WRITEV3.371.lha
/
Config
/
WRITE.config
< prev
Wrap
Text File
|
1993-12-27
|
16KB
|
585 lines
/*
* $VER: WRITE.CONFIG 3.371 (27.12.93) © 1989 - 1993 by Tim Teulings
*/
IF Compare 3371 _Version;
NOP;
Ask "WRITE und WRITE.CONFIG haben eine unterschiedliche\n"+
"Versionsnummer\n"+
"Weiterparsen könnte gefährlich sein !"
"Stop & _Ende ^|_Weiter parsen *"
Break EQUAL _RN 0;
/* Setzen der internen Variablen */
/* ----------------------------- */
/* Lokal */
/* Standardeinstellungen */
/*
SETVAR "_AColor" 1
SETVAR "_BColor" 0
SETVAR "_CColor" 3
SETVAR "_DColor" 1
SETVAR "_LoadTab" 8 /* Größe der Tabs beim Laden */
SETVAR "_SaveTab" 8 /* " " " " Speichern */
SETVAR "_TabLength" 8 /* " " " " Editieren */
SETVAR "_WordDef" 0 /* Wie wird ein Word definiert ??? */
*/
SETVAR "_AutoIndent" 5
SETVAR "_ReadTabs" TRUE /* Konvertieren ja/nein ? */
SETVAR "_WriteTabs" FALSE /* " " " */
SETVAR "_CaseSense" TRUE
SETVAR "_Optimize" TRUE
SETVAR "_ShowSpace" FALSE
SETVAR "_ShowEOL" FALSE
SETVAR "_FRPattern" "~(#?(.info|.bak))"
SETVAR "_OverwriteIcon" FALSE
SETVAR "_WriteIcon" FALSE
/* Setzen der User-Funktionen */
/* -------------------------- */
/*
* Die Diese Routine wird bei App-Aktionen
* mit dem Filenamen in _RS aufgerufen
*/
SETUSERFKT 0 SETVAR "_Path" _RS
NewEd ""
Window 0 0 0 0
Open _Path;
/*
* Diese Routine wird aufgerufen,
* wenn das Closing-Gadgetgedrückt wird
*/
SETUSERFKT 1 IF Compare FALSE _changed;
NOP;
Ask ("$_FileName$"\nist verändert worden !\n)+
"Text geht verloren !"
"_Ab_brechen ! ^|Ab_speichern & Ende *|_Ende"
Break EQUAL _RN 0;
IF Compare _RN 1;
Save _FileName;
NOP;
QuitEd;
/* Die Tastaturbelegung */
/* -------------------- */
CLEARKEYS
KEY "help"
MessageOK "Cursorkeys : Bewegung im Text\n"+
"Shift hoch/runter : Seite hoch/runter\n"+
"Shift links/rechts : Erster/letzter Buchstabe in d. Zeile\n"+
"alt hoch/runter : Erste/letzte Zeile\n"+
"alt links/rechts : letztes/nächstes Wort\n"+
"<- : Backspace\n"+
"Del : Delete"
MessageOK "Shift Del : Lösche bis EOL\n"+
"Ctrl y : Lösche Zeile\n"+
"F1-F5 : Setze Textmarke\n"+
"f1-f5 : Springe zu Textmarke\n"+
"Escape : Iconify";
KEY "shift help"
Help; /* Help-Menu */
KEY "control x"
GetNumber "Schneide Block in Buffer :" 1
CopyBlock _RN
DeleteBlock;
KEY "control c"
GetNumber "Copiere Block in Buffer :" 1
CopyBlock _RN
SetTitle "Block kopiert." FALSE;
KEY "control v"
GetNumber "Eeinfügen aus Buffer :" 1
InsertBlock _RN;
KEY "control <"
GetNumber "Bewege Block x Spaltenn\nnach links :" 1
BlockLeft _RN;
KEY "control >"
GetNumber "Bewege Block x Spalten\nnach rechts :" 1
BlockRight _RN;
/* Macros with buffer-selection */
KEY "control 1"
GetNumber "Speicher Makro :" 1
MacroRec _RN;
KEY "control 2"
MacroStop;
KEY "control 3"
GetNumber "Spiele Makro :" 1
MacroPlay _RN 1;
KEY "control 4"
GetNumber "Führe Makro aus" 1
SetVar "_Reg1" _RN
GetNumber "Führe n mal aus" 1
MacroPlay _Reg1 _RN;
/* classic keys */
KEY "tab" Tab 0;
KEY "shift tab" BackTab;
KEY "escape" Iconify;
KEY "f1" GoTextMark 0; /* Textmarken auf */
KEY "shift f1" SetTextMark 0; /* Funktionstasten */
KEY "f2" GoTextMark 1;
KEY "shift f2" SetTextMark 1;
KEY "f3" GoTextMark 2;
KEY "shift f3" SetTextMark 2;
KEY "f4" GoTextMark 3;
KEY "shift f4" SetTextMark 3;
KEY "f5" GoTextMark 4;
KEY "shift f5" SetTextMark 4;
/* durch F6 - F10 können f6 - f10 während Laufzeit belegt werden */
KEY "shift f6"
GetString "Geben sie den Text ein, mit dem\n"+
"sie Funktionstaste f6 belegen wollen :" _CurrentWord
KEY "f6" WriteText _RS;;
KEY "shift f7"
GetString "Geben sie den Text ein, mit dem\n"+
"sie Funktionstaste f7 belegen wollen :" _CurrentWord
KEY "f7" WriteText _RS;;
KEY "shift f8"
GetString "Geben sie den Text ein, mit dem\n"+
"sie Funktionstaste f8 belegen wollen :" _CurrentWord
KEY "f8" WriteText _RS;;
KEY "shift f9"
GetString "Geben sie den Text ein, mit dem\n"+
"sie Funktionstaste f9 belegen wollen :" _CurrentWord
KEY "f9" WriteText _RS;;
KEY "shift f10"
GetString "Geben sie den Text ein, mit dem\n"+
"sie Funktionstaste f10 belegen wollen :" _CurrentWord
KEY "f10" WriteText _RS;;
/* Klassische Belegung des 10er-Blocks */
/*
KEY "numpad shift 1" Goto _xPos _Length; /* Tastaturbelegung für */
KEY "numpad shift 2" CursorDown 0; /* nummerische Tastatur */
KEY "numpad shift 3" PageDown 90; /* siehe Aufschrift auf Tasten */
KEY "numpad shift 4" CursorLeft 0; /* Aktivierung mit SHIFT */
KEY "numpad shift 5" SetTitle "Marke gesetzt." FALSE
SetMark;
KEY "numpad shift 6" CursorRight 0;
KEY "numpad shift 7" Goto _xPos 1;
KEY "numpad shift 8" CursorUp 0;
KEY "numpad shift 9" PageUp 90;
KEY "numpad enter" Return;
*/
/* Belegung für den Oberon-Compiler */
KEY "numpad shift 7" DoREXX "OberonError.wrx FIRST" {@ASYNC};
KEY "numpad shift 1" DoREXX "OberonError.wrx LIST" {@ASYNC};
KEY "numpad shift 4" DoREXX "OberonError.wrx PREV" {@ASYNC};
KEY "numpad shift 6" DoREXX "OberonError.wrx NEXT" {@ASYNC};
KEY "numpad shift 5" DoREXX "OberonError.wrx CURRENT" {@ASYNC};
KEY "return" Return;
KEY "delete" Delete;
KEY "shift delete" DeleteToEOL;
KEY "control y" DeleteLine;
KEY "backspace" BackSpace 0;
KEY "right" CursorRight 0;
KEY "left" CursorLeft 0;
KEY "up" CursorUp 0;
KEY "down" CursorDown 0;
KEY "shift up" PageUp 90;
KEY "shift down" PageDown 90;
KEY "shift right" Goto @EOL @EOL;
KEY "shift left" Goto @SOL @SOL;
KEY "alt up" Goto _xPos 1; /* zur 1. Zeile oder */
KEY "alt down" Goto _xPos _Length; /* zur letzten Zeile springen */
KEY "alt left" LastWord;
KEY "alt right" NextWord;
/*
* alternates :
* Change number after CursorLeft/Right/Up/Down and BackSpace to 1
*/
/* Die Menüs */
/* --------- */
CLEARMENU
MENU "PROJEKT"
ITEM "Öffne..." "O"
IF Compare FALSE _changed;
NOP;
Ask ("$_FileName$"\nist verändert worden !\n)+
"Text geht verloren !"
"Ab_brechen ! ^|_Speichern & neu öffnen *|_Neu öffnen"
Break EQUAL _RN 0;
IF Compare _RN 1;
Save _FileName;
NOP;
GetFile
Open _Path;
ITEM "Alten File neu laden" ""
IF Compare FALSE _changed;
NOP;
Ask ("$_FileName$"\nist verändert worden !\n)+
"Text geht verloren !"
"Ab_brechen ! ^|_Neu öffnen *"
Break EQUAL _RN 0;
Open _FileName;
ITEMBAR
ITEM "Setze/lösche... »" ""
NOP;
SUB "Text unverändert" ""
SetVar "_changed" FALSE;
SUB "Ändere Sleepmode" ""
IF Compare TRUE _SleepMode;
SetVar "_SleepMode" FALSE;
SetVar "_SleepMode" TRUE;;
SUB "Ändere EditMode" ""
IF Compare TRUE _EditMode;
SetVar "_EditMode" FALSE;
SetVar "_EditMode" TRUE;;
ITEMBAR
ITEM "Neu" ""
IF Compare FALSE _changed;
NOP;
Ask ("$_FileName$"\nist verändert worden !\n)+
"Text geht verloren !"
"Ab_brechen ! ^|_Speichern & löschen *|_Löschen"
Break EQUAL _RN 0;
IF Compare _RN 1;
Save _FileName;
NOP;
New
SetTitle "Text gelöscht." FALSE;
ITEMBAR
ITEM "Umbenennen..." "R"
GetString (Benenne\n"$_FileName$"\num...) _FileName
SetVar "_FileName" _RS
SetVar "_Path" _RS;
ITEM "Speichern" "S"
Save _FileName;
ITEM "Speichern als..." "A"
GetFile {@SAVE}
SetVar "_FileName" _Path
Save _FileName;
ITEM "Speichern als RAW..." ""
GetFile {@SAVE}
Save _Path {@RAW};
ITEM "Speichern & neu öffnen..." ""
Save _FileName
GetFile
Open _Path;
ITEM "Text ausdrucken" "*"
Save "PRT:";
ITEMBAR
ITEM "Neues Fenster »" "" NOP;
SUB "GROßES FENSTER" "B"
NewEd ""
Window 0 0 0 0;
SUB "kleines Fenster" "W"
NewEd ""
Window 100 50 100 50;
ITEM "Iconify" "I"
Iconify;
ITEM "Hide" ""
Hide;
ITEM "WinArranger" "§"
WinArranger;
ITEM "WinManager" "$"
WinManager;
ITEMBAR
ITEM "Über WRITE" "!"
About;
ITEMBAR
ITEM "Speichern & Verlassen" "E"
IF Compare FALSE _changed;
NOP;
Save _FileName;
QuitEd;
ITEM "Ende" "Q"
IF Compare FALSE _changed;
NOP;
Ask ("$_FileName$"\nist verändert worden !\n)+
"Text geht verloren !"
"Ab_brechen ! ^|_Speichern & Ende *|_Ende"
Break EQUAL _RN 0;
IF Compare _RN 1;
Save _FileName;
NOP;
QuitEd;
MENU "EDIT"
ITEM "Undo" "ß"
Undo 1;
ITEM "Undo..." ""
GetNumber "Wieviel Schritte wollen\n"+
"rückgängig machen ?" 1
Undo _RN;
ITEMBAR
ITEM "Setze Marke" "M"
SetTitle "Marke gesetzt." FALSE
SetMark;
ITEM "Lösche Marke" "U"
Unmark;
ITEMBAR
ITEM "Ausschneiden" "X"
CopyBlock 0
DeleteBlock;
ITEM "Kopieren" "C"
CopyBlock 0
SetTitle "Block kopiert." FALSE;
ITEM "Einfügen" "V"
InsertBlock 0;
ITEM "Löschen" ""
DeleteBlock;
ITEMBAR
ITEM "Clipboard »" ""
NOP;
SUB "Ausschneiden nach Clip" ""
CopyBlock 0
BufferToClip 0 0
DeleteBlock;
SUB "Nach Clip kopieren" ""
CopyBlock 0
BufferToClip 0 0
SetTitle "Block kopiert." FALSE;
SUB "Einfügen aus Clip" ""
ClipToBuffer 0 0
InsertBlock 0;
SUB "Buffer nach Clip" ""
BufferToClip 0 0;
SUB "Clip nachBuffer" ""
ClipToBuffer 0 0;
ITEMBAR
ITEM "Lösche Buffer" ""
ClearBuffer 0
SetTitle "OK." FALSE;
ITEM "Speicher Block als..." ""
CopyBlock 0
GetFile {@SAVE}
SaveBuffer _Path 0;
ITEM "Drucke Block" ""
CopyBlock 0
SaveBuffer "PRT:" 0;
ITEM "Füge File ein..." ""
GetFile
LoadBuffer _Path 0
InsertBlock 0;
ITEMBAR
ITEM "Block links" "<"
BlockLeft 1;
ITEM "Block rechts" ">"
BlockRight 1;
ITEM "Block linksbündig..." ""
GetNumber "Mache Block bündig zu Zeile :" _xPos
BlockLftAlig _RN;
ITEM "Block rechtsbündig..." ""
GetNumber "Mach Block bündig zu Zeile :" _xPos
BlockRghtAlig _RN;
ITEM "Zentriere Block..." ""
BlockCenter 1 80;
MENU "INTERN"
ITEM "Parse Buffer..." ""
GetNumber "Parse Buffer :" 0
SetTitle "PARSING..." TRUE
ParseBuffer _RN
Flash;
ITEM "Parse Block" ""
CopyBlock 1
SetTitle "PARSING..." TRUE
ParseBuffer 1
Flash;
ITEM "Parse File..." ""
GetFile
LoadBuffer _Path 1
SetTitle "PARSING..." TRUE
ParseBuffer 1
Flash;
ITEMBAR
ITEM "Führe Buffer aus..." ""
GetNumber "Führe Buffer aus :" 0
SetTitle "EXECUTING..." TRUE
DoBuffer _RN
Flash;
ITEM "Führe Block aus" ""
CopyBlock 1
SetTitle "EXECUTING..." TRUE
DoBuffer 1
Flash;
ITEM "Führe Komando aus..." "D"
GetString "Bitte geben sie WRITE-Komandos ein :" ""
DoString _RS;
ITEM "Führe File aus..." ""
GetFile
LoadBuffer _Path 1
SetTitle "EXECUTING..." TRUE
DoBuffer 1
Flash;
ITEMBAR
ITEM "Nehme Makro auf" "1"
MacroRec 0;
ITEM "Stoppe Aufnahme" "2"
MacroStop;
ITEM "Spiele ab" "3"
MacroPlay 0 1;
ITEM "Speile mehrmals ab..." "4"
GetNumber "Replay it n times " 1
MacroPlay 0 _RN;
MENU "EXTERN"
ITEM "Neue Shell" "."
System "NewShell";
ITEM "DOS-Execute..." ""
GetString "Geben sie ein CLI-Komando ein :" ""
System _RS {@ASYNC};
ITEMBAR
ITEM "Lösche File..." ""
GetFile;
ITEM "Erschaffe Directory..." ""
GetFile {@SAVE};
ITEMBAR
ITEM "Font..." ""
GetFont;
MENU "REXX"
ITEM "Führe Rexx aus..." ""
GetString "Geben sie ein REXX-Komando ein :" ".wrx"
DoREXX _RS {@ASYNC};
ITEMBAR
MENU "UTLITIES"
ITEM "Schreibe Zeichen..." ""
GetNumber "Geben sie den\ndezimalen ASCII-CODE\ndes Zeichen ein :" 0
WriteChar _RN;
ITEM "Zeige Zeit & Datum" "T"
MessageOK "Aktuelle Zeit ist :\n$_Time$";
ITEMBAR
ITEM "UPPER word" "^"
UpperBlock @SOW @EOW;
ITEM "lower word" "#"
LowerBlock @SOW @EOW;
ITEMBAR
ITEM "Match Bracket" "("
MatchBracket;
MENU "SEARCH"
ITEM "Finde..." "F"
GetFindReplace _FindString ""
Find @CURSOR @CURSOR @EOT @EOT;
ITEM "Finde noch einmal" "N"
Find @CURSOR @CURSOR @EOT @EOT;
ITEMBAR
ITEM "Ersetze..." "Y"
GetFindReplace _FindString _ReplaceString {@REPLACE}
Replace @CURSOR @CURSOR @EOT @EOT;
ITEM "Ersetze noch einmal" "Z"
Replace @CURSOR @CURSOR @EOT @EOT;
ITEM "Ersetze alle..." ""
GetFindReplace _FindString _ReplaceString {@REPLACE}
Replace @CURSOR @CURSOR @EOT @EOT {@ALL}
Flash;
ITEM "Ersetze alle schnell..." ""
GetFindReplace _FindString _ReplaceString {@REPLACE}
Silent
Replace @CURSOR @CURSOR @EOT @EOT {@ALL @NOREQ}
Window 0 0 0 0;
ITEM "Ersetzte schnell im Block..." ""
GetFindReplace _FindString _ReplaceString {@REPLACE}
Silent
Replace @MARKA @MARKA @MARKB @MARKB {@ALL @SILENT @NOREQ}
Window 0 0 0 0
Flash;
ITEMBAR
ITEM "Suche nach Muster..." ""
GetString "Bitte geben sie das Suchmuster an :\n(Case)" _PatCase
SetVar "_PatCase" _RS
FindPattern {@CASE};
ITEM "Suche noch einmal" ""
FindPattern {@CASE};
ITEM "Suche nach Muster (no Case)..." "Ö"
GetString "Bitte geben sie das Suchmuster an :\n(No case)" _PatNoCase
SetVar "_PatNoCase" _RS
FindPattern {@NOCASE};
ITEM "Suche noch einmal" "Ä"
FindPattern {@NOCASE};
ITEMBAR
ITEM "Springe zu Zeile..." "G"
GetNumber "Springe zu Zeile :" _yPos
Goto _xPos _RN;
ITEMBAR
ITEM "Zeige Index..." "J"
GetString "Bitte geben sie das Suchmuster\n"+
"für den Index an :" "#?#?"
ShowIndex _RS {@CASE};
MENU "PREFS"
ITEM "Globale Prefs" ""
GPrefs;
ITEM "Prefs" "+"
Prefs;
ITEMBAR
ITEM "Lade Konfiguration..." ""
SetVar "_Path" _ConfigPath
GetFile
LoadBuffer _Path 1
SetTitle "EXECUTING..." TRUE
DoBuffer 1
Flash;
ITEMBAR
ITEM "Zeige Konfiguration" ""
SetVar "_Path" _ConfigPath
GetFile
NewEd ""
Window 0 0 0 0
Open _Path;
MENU "HELP"
ITEM "Zeige Variablen" ""
ShowVars;
ITEM "Zeige Funktionen" ""
ShowFunctions;
ITEM "Zeige ASCII-Codes" ""
ShowASCII;
ITEM "Hilfe zu Stichwort..." "?"
GetString "Bitte geben sie das gesuchte Stichwort ein :" ""
GuideHelp _RS;